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OBJECT /READ 



2 

4 
5 
6 
/ 

8 

,9 
I II) 
11 

,12! 
|13 
I.4, 
" L j' 
I6i 
■|7 

Ira 

19 

'ill 

r- 

B2 
23 
24 
25 
,36 

" - 
28 

29 

30 

31' 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 

44 

45 

♦6 

47 

W 

49 

50 

51 

62 

53 

54 

55 

56 

57 




S-, 

I 

A 

14 | 
6 

'/! 



ho 

|n 

17 
13 
14 

15 
16 
17 
18 
19 
|» 
|21 
22 
23 
24 
25 



20 
27 
28 

29 

30 
31 
32 

3.1 

I- 

3b 

36 

3?" 

3d 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

>4 

55 

56 



BEGIN 

%% QUIKLST/CANDE SOURCE PROGRAM. 6-/0. %% 

....... CJ3MM£N.T »....*. TXTJLEJ B.5.5 0,Q./tJi7. 0. 0. M AH K...*1.V S1ST LM_±< ElXASJL 

FILE IDI SYMBUL/QUIKLST TAPE ID; SYMbOL2/F 1LEQ00 
THIS MATERIAL IS PROPRIETARY TO BURROUGHS CORPORATI 

..AAUL.±S_WU TO BE REPRODUCED* USED * UR DISCLOSED 

EXCEPT IN ACCORDANCL WITH PROGRAM LICENSE OR UPON 
WRITTEN AUThOKlZATIQN LF THE PATENT DIVISION OF 

.aufiaoufifci c..Qiif .uBJL.LiojLt_..:.OEjjtg_i.i^. u " H "-»^ * * * * <* 



+ 
* 

* 
* 

* 
* 



Mli, H HiAti 4fiy.l? 

COPYRIGHT CO 1971, 19/2 BURROUGHS CORPORATION 
... .AAlZQ_20£ AA,lM£ii2_ „ _ _ ... 



real common; 

file in source disk serial ( 2' 0* u, myuse= input ) ; 

-SAVE ARRAl...AiBLQ}.2Si.U.E.AiiAii'AlSil±QJL _ _.__ _ 

BOOLEAN BRAAK* PRNT, SQUASHED' SFLG* NUMBERED* NQFMT; 
REAL AW ADj, BW B4, HRANGE* LKaNGE, LREC* MAX* 
PC.*.. NPARAMS, .._RE.C._. RECSZ* SEQ> TYpE, RLC«D$' 
LABEL NEXTPARAM* RAN'DUMRO, SERIAlRD, 
DEFINE LEFTARROW ■ "«-"*; 



* 

ON * 

* 

* 
* 

_*_ 

* 

*i 



print, eof; 

* * *_*_* ************************ 



r********************************** 



%_* *_* ******************************** 

PROCEDURES I SK W A I Kb A TsToT; 

VALUE I*S*D; ARRAY AC*3; REAL I,S,D; COMMuNKATLC-b); 

.......Xl***.**.a.****.a^ 

PROCEDURE TWXOUTCA'N^T); 

%***************************** 
..JtALUE n*t; _ 

real a*n*t; 

BEGIN 

COMMUN I CAT EX -11 XL- - 

BRAAKI=BRAAK OR BCCLEAnCj); 

end; 

%* ******* J***** **** *********** * i, 
REAL STREAM PROCEDURE o1CT~CONVUDPs")i 



• * * * * 



AAA** 



***** 



% MCh RETURNS 1 I f BREAK OCCURRED 

*A***±.AA*-*AAAAAA*.**A.*^.A.*.A 



r******************************** 



'u oim-Mii rnu^huunt uwiiunv^HU^" VALUE ADRS* 
BEGIN SH = ADRS; DI»*LOc OCTCONV; USs» 6 OCT; END; 

...&*.** A*..* *.* * *..* *.*.*. **.*..**** *.*.**_* *.*.***..**..*** *_**_* *********************** 

Real stream procedure hur(k,n); val"ue~nT" 

x******************************* 

_„ .EEGIN.. __ „ __ _ 

SIJsF; 3CSll"3l*8)i OlIaLOC f; usta*os; 
SI»sf; U(SII"5I*8); DIJ=»L0C F; DS:*kOS; 

sia»f; .MC.sij«.si±.s.i; .Px<*L.o..c...HDjy.. Mi^wo's.; 

END STREAM PROCEDURE H[)R* 

X*************************************************************** 



***** 



***** 



* ** ** 



00U100CC 

00010100 

0.0.0.1.011.0. 

oooion 1 

00010112 

M0J011.3. 

00010114 

oouions 
- joiJa.oii.fi. 

00010117 

00010118 

._ C.Q 010119 

00010200 
00010300 

QflflXOAfifl... 

00010500 
00010600 

QjQO 10.700. 

00010800 

00010900 
***0001100Q 

ooouioc 

00011200 

aa* 00.011 ifln... 
oouiuoc 

***00011500 

OO-QII6QO1.. 

00011700 
00011800 

Q.0011.S.OJ}... 

0001200C 
00012100 

A* AOO.U12.2i30. 
00012300 
00012400 

*.** 0.0.0125 00 

00012600 

***0C01270C 

_ M0.1ZBJ3.O. 

00012900 
0001300C 

OOJ)1310_Q._ 



STRE AM PROCED URE MBVEcN*A,B); VALUE N; 

BEGIN SI*»a; 0I»»B; QSjas N wqS; end; 
X*********************************** **************************** 
_RE A], S T R E A M _P RQCEOURE WHERElS(X); 



00013200 
********00013300 
.__ 00013 40 



begTn" sTisx; whereisj = si; end; 

X*************************************************************** 

STRE A M PROCED URE 0UTFQ R mAtCA1,B1,B4,SQ Sh > 5F LG , H R N T ) / 



00013500 

********00013600 

00013700 



X**************************************** ************** ********* 
COMMENT Al IS ADDRESS OF AlOJ, Bl IS AOORESS OF BCQ], 
B4 IS ADORESS OF BC93 IF NOT TYPE UdT A * O F 6 U jj IF TYPE DATA' 
SQSh tS THiiF rr "SfliiASHkn" nptrniw Si-T. 



JC *J£ WWW " >■» » <* r Oli?^ i i l> >-» I I ' ; u. u W ' j\ 

SQSH IS TRUE" IF ♦•SQUASHED"" OPTION SET. 

SFLG=TRUE IF NOT TYPE DATA FILE, PRisTsTRUE IF NOT "DISPLAY" VERB 

ROUTINE RE FO RMATS RECORD FGft O UTPUT I" Q REMOTE STATION; 



VALUE A1#B1#B4#SQS«#SFLG,PRNT; 

BEGIN LOCAL SV#SEO; LABEL EXIT; 

pi >«ai; o s»»aLiT M "; sn«Au dsj»iowd5; d i r=Ajj % blank rckq 



00013800 
********00013900 

OQ0 14QOO 

******** 1 41 o d 
00014200 

000143 00 

00014400 
00014500 
00014600 
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00014800 
00014900 
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SF 
PR 
8( 
PR 
SI 
5Q 
2( 

EL 

JU 

2< 

EXIT.:. 

EN 

..STRE.A. 

BE 

si 

SI 

DS 

...EN 

X**** 
A[0]l 
8L0.ll 

dis«w 



LG(Slt= 
NTCDI is 
IF SC=" 
NT(DSi* 

SHC 

40C IF 
BEGIN 
SE DS:= 
MP OUT 
0Sl«40 

STREA 
******* 
.M_..PRQCE 
******* 

GIN 

»*LQC L 
:*AU D 
:«8LIT" 
D STRIA 
******* 

so; Ai* 

.*QJ...B.1I 
AITC1* A 



BU', 01 : =LCC SEO; Db$sWUi>; a SAVE 3EQ • NUMBER 

loc seq; ds; = 7F'illj; si:=loc seg; oiisau 

•• THEN SjJ-Sj+1 ELSE_Do!sCHR); 

lit*' "7; svVsoTr"Lur=B4; "6si««Lit» ••; di» = sv). 



SC B " " THEN 

SUaSI + i; IF SC NEUi 

CHR)); 

TO exit")'; 

CHR)i DS»*LIT" '•; 



1HEN UStsLiT" 



END 



M PROCEDURE OUTFORMAT; 
********************************************* 

Di[RE__R E .SAMBEfiU 1 , l B E C ) _^MUJE_A1 aL Hi C_i 



00U15OO0 
000151CC 
0.0015200 
00015300 
00015400 

.fl.aQiss.M. 

00015600 
00015700 

Qq.913.30q.. 

00015900 

00016000 

_0n£LL6_U10_ 



******** 



~ , w. • .: — ^s.oum '.t*. rr.ir ■*. r*.,* e at ■,■ ,T,r '-: — ,.t '.'.h y— — :^_* -£_*».;-!.— jj _ 

********************************************* 

R££JL.QI! 5.1.1* _Q_S_L*fl DE.CJ. Mi.?Ali OS i*1LXLL± 

I;=Al; 3CIF SC=" " THEN Sl:=5i+i ELSE DSI»CHR 

•♦; 

M ... P.RQC E U R£_.aLANllMamj. 



00016200 
****** *QQU 16 300 

JQU16400 



******** 



*******00016500 
00016600 

.jQflUlAZflJl. 



********************************************* 
aWHERElSCACO]); X FIXED ADDRESSES 

sWHEfiEJS-CB.XO.lU BAta*h£KLl&iB^ilil ; 

»30>C0MMCN># % GET ESP KECORO 



); 



******** 



,PRNT„.:= ACi.l*t7*.U..»... 

FILL SOURCE WITH AC 33 
READ SEEK(S0URCEC03)I 
IF (MAXt»H0R(S0URCE*7 
IF A C 1 3 , C 6 : 1 1 ■ 1 THE 

BEGIN 

_ s FLG If A [ 1 3 . C 3 * 1 3 ■ 



.C i._* Ml^lf .. " DiAELAY" V E KB. 

»AC4]; 

)) LSS THEN GU TO EOF; 
N X WURKFILE 



NUMBERED t 
RECWDS«=10 

END.. 

ELSE 

BEGIN X NO 
typ_e:=hdrc_ 
NOFMT J* ( 
SFLG « s (T 



; _ *. get file Tjrp£__£ h il_m_ c a n c t 
AUJ.UU]sl AND not sflg; 
RECSZl*8i; X STANDARD RECORD SIZE 



00U16800 
00016900 

0.00X700.0 

*******00017l00 
00017200 

- 0004-Z400 

00017400 

00017500 

mQllMO. 

00017700 
00017800 

OOUg 1_0 

00017900 
00018000 

.„. 00018.100... 



RE 
IF 
IF 
EN 
SQUAS 

IF NP 



RECWOSJ 
YPE LSS 
NUMBEREO t» AC13.C 



T THE WOPKFlLf 
S0URCE *4 ).C36»6]>. X FIl E TYPE 



HOR(SQURCE»0).ti:-i43) NEO 10 OR TYPEMO; 
8 QR TYPE GEQ 10) AND RECWOS * 10; 
4H3M A ND NOT SFLGJ 



00018200 

00018300 
.0.041.8.4.0.0 
00018500 
OOU18600 
000187 



CSZ « 
TYPE 
RECW 

d; 

HEO»" 
ARAMS 



* IF SFLG A 
MO THEN 72 
DS GTR..1.5 1 

ACU t [2tl3* 
»«AC 13 t C g7 I 



NO TYPE NEQ 10 THEN 81 ELSE 

ELSE X TYPE INFO 
HEM.. LBECHflSlslb Jxfi.. ELSE Jit£W.IiS.>...8J 

1 AND TYRE NE9 10; X "SQUASHED" OPTION 
63 G TR THEN X PARAMET ERS SPECl F IED . 



00018710 
00018800 
0001890 



00019000 
00019100 
OOP 19 200 
00019300 
00019310 
000 19400 



BE 
MQ 

RE 



GIN 
VEC9, 

c*«o; 



AC213»PARAM 
NPARAMS:aN 



S); % SAVE PARAMETERS 

P ARAMS- l; SEQ>«Pc*«*i; LRECjM; 



00019500 
00019600 
00019700 



NEXTP 

LR 

LR 
- jp 



ARAMI 
EC *» 

ANGEi 



lrec -i; 

*HRANGE»«PARAMSIPC«pPCM3> 



00019800 
00019900 
0002.0000 



PgTsiooooooo 

N 
CS0URCE[MAX 

•o print; 



o then x "end" 

3»REC*US,Bt*3)> READcSOURCE); UREC :s MAX*i; 



IF 



LRAN 
BEGI 
READ 

GOT 

enp; 

p c lss nparaws then * more parameters available 



00020100 
00020200 
00020 300 

0b020400 
00020500 

0002Q600 



• • 



•H« 
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IF PARAMSCPC + 1J ,C 1!1 Jsi THEN * KANi,E SPECIFltU 
HRANGElBpAHAMStPCIaPC + 1 J. C 21 I 27 3/ 

IF N Q.T S F L.G .. I.H.E_N %._ RE .CQ.RD. . L Q..C. A J I UN „P t£. 1 1 1 L L 

BEGIN 

READ SEEKCSOURCECLREC{*(L«ANGt-l)xREAL(LRANGL NEO 0)3)J 
QQ- TO. SERIAL RD1 *__K_£__IAARY__S£AR_H. 

end; 
if seq=lrange then 

_ B E G.I.N . L.R £.C A .■ LBJEX+i LJkil ISLPhlhl). L Hit > 

IF (MAX-LREC) LSS 30 THEN GO TO SERlALRu; % SKIP BINARY SEARCH 
REC:aLREC+(MAX-LREC) DIV 21 % START IN THE CENTER QF RANGE 

..— 60 .._irL_RAMDJMfifiL... . _ 

DU BEGIN 

IF LRANGE LSS SE<J THEN % MOVE bACK* NOT LSS 

REX:.rI.S£Ci=R££-^ » ...jwjGLVJEL_UEL_ _ - 

IF REClsCLREClsREO + AOJ GT« MAX THEN REC:sMAx> * NOT MORE THAN 
RANDOMRDJ 

H£AD.t5DUft£EI.H£Cltfi£C.HJJ.itfl£*J..i.; 

S£Q«sOCTCQNV(B*n; 

IF SES=LRANGE THEN % MATCHING RECORD 

BEGIN J.R£Xi=RCQiJlEAni.SMa^i/._Gi3...lO. PRJ.MJ. Lk&i _ , 

ADsJ»»(REC-LREC) DIV 2; 
END UNTIL ADJ LE<3 II 

-READ . SEE K( S.aUR.C.£t LREC J U %. iYUl £. Q.y.N__ lii. . BINARY SEARCii.n_fiiL.BACK 

SERlALRDt 

READC SOURCE' RECWDSf 8C*] H EOF 3/ 

LRECS5LREC+1J % EGI4liS-..T.a_IhE NEXT REC-OHD 

SEQJ*IF SFLG THEN 0CTcQNV(B4) ELSE LRECi 

THEN GO TO SERIA L RD; * TOG LOW 

THEN X.-H1U Ml Git _. 

THEN 



IF 

IF.. 

IF 
PRINT: 
IF 



SEQ LSS LRANGE 

SEQ GTR MRANGE 

PC LSS NPARAMS 



go nextpaham else go euf; 
jhen % phlnt out reclrtj ^.ucation 



IF 



NUMBERED 

BEGIN 

REKNUMBERCAWUREC); 

TWX0UTCA[03*9#1); 

end; 

NQFMT THEN MOVECRtCwDS»R»AJ 



LlSE 



PUJ FORM AT ( A 1 > B 1 # B 4 , SOU aSH ED* SF LG*P RNT ); 

% STOP PRINTING 



twx0utca[03>hecszm); 

if braak then go tg £qfj 

go to serial_RD;_ 

end % IF Parameters' TpeciFIed 

ELSE 

_D0 BEGIN % READ FILE SERIALLY 



READ C SOURCE >REC WO S#BC*]UEOF]; 

LRFC Ip LREC + 11 

IF NUMBERED_THEJI % PR I Ml O UT JiEC UHQ 

BEGIN 

REKNUMBER(A1,LRFC); 

TWXOUT(At03#9#l); 



LOCATION 



00020700 
00020800 
QQC2Q9Q.C 
00021000 
00021100 

tt_Q.2l2Q.C 

00021300 
OOOcUOO 

.. 00.02 1.5GQ 

00021600 
00021700 
00 U 2X8 00 
00021900 
00022000 

M0j*.2.i.0jQ.. 

MAXOOU22200 
00022300 

&QQ22A.CIL. 

00022500 
00022600 

....Q.fl0_22.fi_. 

00022800 
00022900 

Qfl.Q23__CL 

00023100 
0C0232CC 

S-002 33-00 

00023400 
00023500 

_ .00-023600 

00023700 
0002380C 
00023900 

000 24000 
00024100 
0C024200 
00024300 
00024310 
00024400 
"00 024 5 00"* 
00024600 
00024700 
0OO24800" 

00024900 

00 025 000 

000251 00 
00025200 
00025300 



end; 
if nofnt then move ( rec wds*b> a) etse 

OUTFQRM ATCA I >B1*B4>SQUaSHEQ*S FL G *■ P RNT) i 



00025400 
00025500 
00025600 



TWX0UT(A[0]#RECSZ*1 )i 
END UNTIL BRAAK1 % GR 
EOFl 



00025700 
00025710 
00025800 



END -OF- FILE 



CLOSECSOURCE); 
END PROGRAM, 
ENDlEND* 



00025900 
00026000 
00026100 



LAST CARD ON OCROING TAPE 



00026200 
00026300 
99999999 



r~ 



LA8EL 0O0OOOO0OPRINTEKOO1/5099CC fcX OB JEC TV RE AO; F I LE SGbRCEF I lE=SYMBQl/QU I KLST > EM; «■ 
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